Compendium Deluxe 1/LSD Compendium Deluxe 1.iso/a/disk/misc/filex11.lha/FileX/Install/install

Text File | 1993-10-22 | 6.0 KB | 264 lines

; $VER: FileX install script 1.1 (14.10.93)

; language dependent definitions

(if (= @language "deutsch")
    (
        (set deflang 1)
        (set txt_badkick "Kickstart 37.175 (OS 2.04) wird unbedingt benötigt!")
        (set txt_askdir (cat "In welchem Verzeichnis möchten Sie " @app-name " installieren?"))
        (set txt_askarexxdir (cat "In welchem Verzeichnis möchten Sie die ARexxbeispielscripte installieren?"))
        (set txt_dirhelp
            (cat
                 "Wählen sie das Verzeichnis, in dem " @app-name " mit allen"
                 " notwendigen Dateien und Unterverzeichnissen installiert"
                 " werden soll."
            )
        )
        (set txt_arexxdirhelp
            (cat
                 "Wählen sie das Verzeichnis, in dem die ARexxbeispiele installiert werden sollen."
                 " Normallerweise ist dies `Rexx:'."
            )
        )
        (set txt_language "Welche Sprachen möchen Sie installieren?")
        (set txt_langhelp
            (cat
                 "Die Dokumentation zu " @app-name " steht in deutscher und"
                 " englischer Sprache zu Ihrer Verfügung und sie können nun"
                 " aussuchen, welche Sprache(n) installiert werden sollen.\n\n"
                 "Sofern sie über OS 2.1 (oder besser) verfügen, werden dabei"
                 " auch noch die dazugehörenden Katalogdateien kopiert, damit"
                 " auch die Bedienelemente entsprechend beschriftet werden."
            )
        )
        (set txt_german "Deutsch")
        (set txt_english "Englisch")
        (set txt_which "Welche CPU steckt in ihrem Amiga?")
        (set txt_68000cpu "68000 oder jede andere CPU")
        (set txt_68020cpu "68020 oder besser")
        (set txt_cpuhelp
            (cat
                 "Von " @app-name " gibt es eine Version, die auf sämtlichen"
                 " CPU-Versionen läuft, sowie eine weitere, die ausschließlich"
                 " mit 68020 CPU (oder besser) läuft. Sofern Ihr Rechner über"
                 " eine derartige CPU verfügt, installieren sie bitte die"
                 " 68020-Version, da sie schneller und kleiner ist."
            )
        )
        (set txt_tooltype
            (cat
                "Möchten Sie auch künftig Deutsch als Standardsprache"
                " für " @app-name " verwenden?"
            )
        )
        (set txt_tthelp
            (cat
                "Sie können an dieser Stelle das Installationsskript dazu"
                " veranlassen, LANGUAGE=deutsch als Eintrag in der Liste"
                " der ToolTypes zu vermerken. Diese Einstellung können Sie"
                " selbstverständlich jederzeit ändern."
            )
        )
    )
    (
        (set deflang 2)
        (set txt_badkick "Kickstart 37.175 (OS 2.04) required!")
        (set txt_askdir (cat "In what directory do you want " @app-name " to be installed?"))
        (set txt_askarexxdir (cat "In what directory do you want the arexx example scripts to be installed?"))
        (set txt_dirhelp
            (cat
                 "Select the directory where " @app-name " and all requried"
                 " files and subdirectories shall be located."
            )
        )
        (set txt_arexxdirhelp
            (cat
                 "Select the directory where the arexx example script should be"
                 " installed. Normally it's `rexx:'."
            )
        )
        (set txt_language "Which languages do you want to install?")
        (set txt_langhelp
            (cat
                 "The documentation for " @app-name " is available in English"
                 " and in German, and you may now select wich language(s) you"
                 " want to install.\n\nIf you're using OS 2.1 (or better), the"
                 " appropriate catalog files will be copied aswell to label all"
                 " gadgets in the desired language."
            )
        )
        (set txt_german "German")
        (set txt_english "English")
        (set txt_which "What CPU is inside your Amiga?")
        (set txt_68000cpu "68000 or any other CPU")
        (set txt_68020cpu "68020 or better")
        (set txt_cpuhelp
            (cat
                 "There are two versions of " @app-name ". One of them runs on"
                 " all CPU models found in Amiga computers, and one was optimized"
                 " for 68020 CPU's (or better). If your Amiga has such a CPU, use"
                 " the 68020 version, because it is both faster and smaller."
            )
        )
        (set txt_tooltype
            (cat
                "Do you want to use English as the default language when using "
                @app-name " in the future?"
            )
        )
        (set txt_tthelp
            (cat
                "At this point the installation script wants to add the"
                " ToolType entry LANGUAGE=english. You may modify this"
                " entry later if you wish."
            )
        )
    )
)

(if (< (/ (getversion "intuition.library" (resident)) 65536) 37)
    (
        (message txt_badkick)
        (exit)
    )
)

; get the destination directory

(set filexdir
    (askdir
        (prompt txt_askdir)
        (help txt_dirhelp)
        (newpath)
        (default "Sys:FileX")
    )
)

; ask which version to install and copy executable

(set defcpu 0)
(if (>= (database "cpu") "68020")
    (set defcpu 1)
)

(set cpu
    (askchoice
        (prompt txt_which)
        (help txt_cpuhelp)
        (default defcpu)
        (choices
            txt_68000cpu
            txt_68020cpu
        )
    )
)

(set cpupat (select cpu "FileX" "FileX.020"))
(copyfiles
    (source "/")
    (dest filexdir)
    (pattern cpupat)
    (infos)
)
(set filexprogram (tackon filexdir cpupat))

; ask which languages to install

(set lang
    (askoptions
        (prompt txt_language)
        (help txt_langhelp)
        (default deflang)
        (choices
            txt_german
            txt_english
        )
    )
)

(set docdir (tackon filexdir "Docs"))
(if (NOT (exists docdir))
    (makedir docdir (infos))
)

(set localized (> (/ (getversion "locale.library" (resident)) 65536) 37))
(if localized
    (
        (set catdir (tackon filexdir "Catalogs"))
        (if (NOT (exists catdir))
            (makedir catdir)
        )
    )
)

(set n 0)
(while (set language (select n "Deutsch" "English" ""))
    (
        (if (IN lang n)
            (
                (copyfiles
                    (source "/Docs")
                    (dest docdir)
                    (pattern language)
                    (infos)
                )
                (if (<> n 1)
                    (if localized
                        (copyfiles
                            (source "/Catalogs")
                            (dest catdir)
                            (pattern language)
                        )
                    )
                )
            )
        )
        (set n (+ 1 n))
    )
)

; copy catalog archiv

(if localized
    (copyfiles
        (source "/Catalogs")
        (dest catdir)
        (pattern "FileXCats.lha")
    )
)

; get the arexx script directory

(set arexxdir
    (askdir
        (prompt txt_askarexxdir)
        (newpath)
        (help txt_arexxdirhelp)
        (default "rexx:")
    )
)

; copy the arexx scripts

(copyfiles
    (source "/ARexx")
    (dest arexxdir)
    (pattern "#?.filex")
)

; set tooltype array

(if localized
    (tooltype
        (prompt txt_tooltype)
        (help txt_tthelp)
        (dest filexprogram)
        (settooltype "LANGUAGE" (select (- deflang 1) "deutsch" "english"))
    )
)

(set @default-dest filexdir)

; end of script